(princ "
Loading Scheme System
" tyo)

(setq putprop (append '
	       (FORMAT-CTL-ONE-ARG
		FORMAT-CTL-MULTI-ARG FORMAT-CTL-NO-ARG
		FORMAT-CTL-REPEAT-CHAR
		DEFSTRUCT-DESCRIPTION
		DEFSTRUCT-NAME GRUBOUT-TTY-OP
		DEFSTRUCT-SLOT FETCH ASSIGN SAVE RESTORE
		GET-STATE SET-STATE RACK-NUMBER RACK-TYPE
		GRINDMACRO SYNTAX-PROCESSOR PROCEDURE-CLASS
		VERSION EXPRESSION-CLASS UNSYNTAX-PROCESSOR
		MACROEXPANDED MACRO AUTOLOAD)
	       putprop))
(setq *pure t)

(setq pagebporg ())

(setq *lisp-imports* nil)

(setq gc-overflow '(lambda (x) (print (list 'allocating x 'space) tyo)))

(load "scm:uprocs")
(load "scm:arith")
(load "scm:lists")
(load "scm:array")
(load "scm:types")
(load "scm:trnput")
(load "scm:syntax")
(load "scm:advice")
(load "scm:macset")
(load "scm:mucode")
(load "scm:sedit")
(load "scm:initst")

(load "scm:umacro")
(load "scm:smacro")
(load "lisp:format")

(load "lisp:gcdemn")

(setq *pure ())

(princ "
Loading Done. Now do (SETUP)
" tyo)